home *** CD-ROM | disk | FTP | other *** search
/ Professor Iris Fun Field Trip: Seaside Adventure / Professor Iris - Fun Field Trip: Seaside Adventure.iso / pc / discovry / shared.dir / 00709_HelpInterruption.ls < prev    next >
Encoding:
Text File  |  1995-05-03  |  1.3 KB  |  60 lines
  1. global gRightArrow, gRightArrowLocH, gPlayFlag
  2.  
  3. on InterruptHelp
  4.   global gCurrentFrame, gPageNum, gCategoryName
  5.   set the mouseDownScript to EMPTY
  6.   set gPlayFlag to 0
  7.   puppetSound(0)
  8.   updateStage()
  9.   if gCategoryName = "R" then
  10.     go("Holding")
  11.   else
  12.     if gCategoryName = "G" then
  13.       do("gameReturn" & gPageNum)
  14.     else
  15.       if (gCategoryName = "S") or (gCategoryName = "V") then
  16.         set the locH of sprite gRightArrow to gRightArrowLocH
  17.         go(gCurrentFrame)
  18.       else
  19.         if gCategoryName = "P" then
  20.           paintStopIndex()
  21.           set the locH of sprite gRightArrow to gRightArrowLocH
  22.           go("Color")
  23.         end if
  24.       end if
  25.     end if
  26.   end if
  27. end
  28.  
  29. on playHelpSnd whatsnd
  30.   if gPlayFlag = 0 then
  31.     puppetSound(0)
  32.     updateStage()
  33.     puppetSound(whatsnd)
  34.     updateStage()
  35.     set gPlayFlag to 1
  36.     go(the frame)
  37.   else
  38.     if (gPlayFlag = 1) and (soundBusy(1) = 1) then
  39.       go(the frame)
  40.     else
  41.       if (gPlayFlag = 1) and (soundBusy(1) = 0) then
  42.         set gPlayFlag to 0
  43.         puppetSound(0)
  44.         updateStage()
  45.         go(the frame + 1)
  46.       end if
  47.     end if
  48.   end if
  49. end
  50.  
  51. on writeFile textString
  52.   set gFileObject to FileIO(mnew, "append", the pathName & "helptest.wri")
  53.   gFileObject(mWriteString, textString & RETURN)
  54.   gFileObject(mdispose)
  55. end
  56.  
  57. on wait howLong
  58.   delay(howLong)
  59. end
  60.